Public Class ValesDeMateriaPrima
    Dim ADSolicitudesDeMP As New ADCono.SolicitudesDeMP
    Dim ADValesDeMP As New ADCono.ValesDeMP
    Dim ADSilosMP As New ADCono.SilosDeMP

    Public Function ObtenerSolicitudesPendientes()
        Dim DS As New DataSet
        DS = ADSolicitudesDeMP.ObtenerPendientes
        Return DS.Tables(0)
    End Function

    Public Function InsertarVale(ByVal Responsable As Integer, ByVal Solicitud As Integer, ByVal Cantidad As Integer)
        Dim Codigo As Integer
        Codigo = ADValesDeMP.Insertar(Responsable, Solicitud, Cantidad)
        Return Codigo
    End Function
End Class
